home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Creative Computers
/
Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso
/
commercial
/
inovatronics
/
edgedemo
/
edgeeditor
/
rexx
/
menu_winstohorz.edge
< prev
next >
Wrap
Text File
|
1994-11-17
|
1KB
|
65 lines
/*
** $VER: Menu_WinsToHorz.edge 1.0 (Friday 22-Oct-93 12:55:22)
**
** Display all windows, horizontally panel-ed
**
** Written by Thomas liljetoft & Inovatronics
*/
options results
/* get some general info*/
firstname = address()
getenvvar _ge_errlevel
errlevel = result
getenvvar _ge_realscreenheight
sh = result
getenvvar _ge_realscreenwidth
sw = result
getenvvar _ge_barheight
bar = result
getenvvar _ge_windows
win_cnt = result
/* now actually loop thru the windows and do our thing */
work_cnt = 0
do forever
work_cnt = work_cnt + 1
'window'
parse var result 'X ' wx ', Y ' wy ', W ' ww ', H ' wh ', ' wrexx ', ' wStatus
/* if unzoomed then zoom it baby */
if wStatus = "UnZoomed" then 'Window' Zoom
/* do actual work */
Call DoTheWindow
/* on to the next one, if there is one */
'addressof nextwindow'
newname = result
address value newname
if newname == firstname then do
'window front'
leave
end
end
exit(0)
DoTheWindow:
/* what is the new size of the window */
h=((sh-bar)/win_cnt)%1
t=(bar+((work_cnt-1)*h))%1
/* adjust the window then */
'changewindow leftedge 0 topedge' t 'width' sw 'height' h
/* if an error occurred then report it if we need to */
if rc >= errlevel then do
'fault'
'requestnotify "'result'"'
end
return